#Table 2

load("Table 2.Rdata")
logit<-glm(treated_cases~dead_log+war_dur_months+
             conflict_type+p5_satellite+relevel(region, ref="Europe"),data=treatment,
             family=binomial(link="logit"))
summary(logit)
nobs(logit)
logLik(logit)

rm(logit, treatment)


